From 1b8c1e5490296e1d44b7f1ffad1e27a3c4a34a4b Mon Sep 17 00:00:00 2001 From: Justin Burkett Date: Wed, 30 Nov 2016 19:03:56 -0500 Subject: [PATCH] Fixup last commit --- which-key.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/which-key.el b/which-key.el index 63327cb9ba2..c4cf96b5f97 100644 --- a/which-key.el +++ b/which-key.el @@ -819,7 +819,7 @@ replacements are added to (push (cons (cons (concat "\\`" (regexp-quote key-seq) "\\'") nil) (if (functionp replace) replace (cons nil replace))) which-key-replacement-alist) - (when (consp replacement) + (when (and (not (functionp replacement)) (consp replacement)) (push (cons key-seq (cdr-safe replacement)) which-key--prefix-title-alist))) (setq key-sequence (pop more) replacement (pop more)))) @@ -848,7 +848,7 @@ addition KEY-SEQUENCE REPLACEMENT pairs) to apply." (push (cons (cons (concat "\\`" (regexp-quote key-seq) "\\'") nil) (if (functionp replace) replace (cons nil replace))) mode-alist) - (when (consp replacement) + (when (and (not (functionp replacement)) (consp replacement)) (push (cons key-seq (cdr-safe replacement)) title-mode-alist))) (setq key-sequence (pop more) replacement (pop more))) -- 2.30.2